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IWII1I1111 BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
IIIIIIIII BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
III BBBBBBBBBBBB RRRRRRRRRRRR AAAAAAAAA RRRRRRRRRRRR 
II] BB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL Il] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA RRR RRR 
LLL II] BBB BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL II] BBBBBBBBBBBB RRRRRRRRRRRR AAA AAA = RRRRRRRRRRRR 
LLL II] BBBBBBBBEBBB RRRRRRRRRRRR AAA AAA RRRRRRRRRRRR 
LLL IJ] BBB BBB RRR RRR AAAAAAAAAAAAAAA = RRR RRR 
LLL II] 888 BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL 1] BBB BBB RRR RRR AAAAAAAAAAAAAAA RRR RRR 
LLL II] BBB BBB RRR RRR ABA AAA RRR RRR 
LLL II] 888 BBB RRR RRR AAA AAA RRR RRR 
LLL II] BBB RRR RRR AAA AAA RRR RRR 
LELLLLLLELLLLLL III BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LLLLLLLLLLLLLLL ITIIIIII BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
LELLLLLLLLLLLLL IWII1111 BBBBBBBBBBBB RRR RRR AAA AAA RRR RRR 
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Routines to read/write files 


LIB_FILEIO 


MODULE LIB_FILEI 


BEGIN 


' 
Lee 


'e 

it COPYRIGHT (c) 1978, 1980, 1982, 1984 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 

i 

* 

® 

® 

® 

'* THIS in ach IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt he * 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
't INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
® 

*® 

® 

* 

® 

* 

® 

® 

* 

® 
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!® TRANSFERRED. 


it pha INFORMATION IN THIS SOFTWARE IS SUBJ 
'® AND SHOULD NOT BE CONSTRUED AS A COM 
Hil CORPORATION. 


anti TO CHANGE WITHOUT NOTICE 


E 
MITMENT BY DIGITAL EQUIPMENT 


1 
1 
1 
1 
1 

1 
1 
1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

! 

1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
! i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

1 
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1! 

: FACILITY: Library command processor 

\ i ABSTRACT: 

1 
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tend VAX/VMS ttocor ten is invoked by DCL to process the LIBRARY 


SOOOOCOCoCoooooooooooooooooo 


SoOOCOCOSOSSOSOSOSOSSOSOSOSSOSOOSOOSOOOOOOCOOOOOOOOoOOO 
FS WAWANAA NANI POPUP MONOPUNINY DY) 2 2 PO 
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3 
} 
0 ! mmand. It utilizes the Librarian procedure set to perform 
the. actual modifications to the Library. 
0041 i ENVIRONMENT: 
004 i 
004 ! VAX native, user mode. 
pee 4 
045 leo 
0046 ! 
0047 ! . 
sk AUTHOR: Benn Schreiber, CREATION DATE: 20-June-1979 
baat MODIFIED BY: 
0038 i v03-003 GJA0083 Greg Awdziewicz 12-Apr-1984 
005 ' Make read errors in Get_record routine fatal, to 
0054 ! stop infinite Loop ing in the four In ytenx modules 
Ooee } when RMS can't read the file. (QAR # 
0089 i V03-002 MLJ0086 Martin L. Jack, 6-Apr-1982 13:19 
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Fix VO2-011 to work for shareable image Libraries. 


v02=-911 RPGO011 Bob Grosso 30-Mar-1982 
Use SQ0 (sequential only) option in FAB FOP to gain 
network performance enhancement by restricting file 

to ~Sia processing. 


v02-003 PG0003 Bob Grosso 07-Jan-1982 
Return hw when input file locked. 

v02-002 RPGOO2 Bob Grosso 7-Aug-1981 
Lib$Sgl_ctlmsk now a quadword 


v02-001 BLS0029 Benn Schreiber 23-Dec-1980 
Convert ty A to message compiler. Libraries of shareable 
image symbol tables. 
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LIBRARY 


H 078 1 

; 6h $079 1 *SYSSLIBRARY:STARLET.L32'; 'System data structures 

; #8) 0080 1 REQUIRE : 

3 S 0081 1 "PREFIX"; !Librarian macros 

; 0265 1 REQUIRE : 

; 0266 1 *LIBDEF’; 'Librarian data structures 

ee 0554 1 REQUIRE ay 

; @& 0555 1 *"LBRDEF'; ‘Library processor definitions 
; of 1146 1 

; 8 1147 1 EXTERNAL 

; 8 1148 1 Lor$gl_rmsstv : ADDRESSING MODE (GENERAL), !RMS STV from Librarian 
; 1149 1 Lib$Sgl_ctlmsk : BLOCK (2), ‘Library control mask 

Bie i 1150 1 Lib$gl_Libctl, ‘Library control index 

Fae 1151 1 Lib$gl_inpfdb : REF BBLOCK, ‘Pointer to input FDB 

es . 1128 1 Lib$Scl_rab : BBLOCK, ‘Pointer to input RAB 

5; 11535 (1 Lib$gl_type 'Type of Library opened 

:  % 1134 Lib$gl-inplist : REF BBLOCK; iListhead for input files 

: ow 1156 1 EXTERNAL ROUTINE ‘ : 

; 1157 1 find List_width, !Determine Listing width ; 
; 299 1158 1 pet fi lnandesc, 'Get string descriptor for file name 
: 100 1159 (1 ib_get_mem, ‘Get memor 

s OT 1160 1 Lib_free_mem, ‘and give it back 

; Oe s3Gs ; Lib_get_zmem; !Get zeroed memory 

3: 104 1168 1 EXTERNAL LITERAL mas : 

: 105 1164 1 Lib$_initerr; ‘Error initializing Library 
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GLOBAL ROUTINE next_input_file = 
BEGIN 


FUNCTIONAL DESCRIPTION: 
This routine opens the next input file and returns success or failure. 
IMPLICIT INPUTS: 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 


! 

i 

i 

i 

i 

! 

i 

The List of input files is pointed to by Lib$gl_inplist. 
' 

i 

! 

i 

i 

The file is opened, and Lib$gl_inpfdb points to the current FDB. 
i 


WANNA WAI RININO NI NININPONIN 2 2 2 2 PO OO HF OOO 


SDODOOOS 000000 OOO OW 0009 0 00 09 09 09 09 SIN NI NS NINN NS NOAA OOO 
AWE WN © OO NAW EWN HO ODNA UE WN HO OONAOUE WN -OOONOM 


107 11 1 

108 11 

109 11 

110 11 

eee 

1 ¢ 11 

114 11 

115 11 

116 11 r4 

117 11 r4 

118 11 § 

119 11 

120 11 2 

121 11 é 

1 § 11 2 

1 11 2 

126 11 2 

125 11 2 

126 11 2 

127 11 2 

8 BE soca 

: ? + § inpfab : BBLOCK Cfab$c_bln]; !FAB to open file 

132 11 ¢ IF ere EQL 0 ‘If fdb not set up yet 
133 11 THEN BEGIN 
134 11 3 Lib$gl_inpfdb = Lib$gl_inplist; ‘Then point at Listhead to get first 
135 P 11 3 SRAB_INIT ( ! and initialize the RAB 
136 P 11 3 RAB = Lib$al_rab, 

137 P11 3 FAB = inpfab, 

138 P 11 3 ROP = LOC ! use locate mode 

140 1198 § END , 

141 11 3 ELSE BEGIN ‘Otherwise close open Library 
142 12 3 LOCAL 

ean St 

ie? i H inpdesc = Lib$gl_inpfdb [Cfdb$l_namdesc] : BBLOCK; 

147 12 3 SFAB_INIT (FAB = inpfab); ‘Initialize FAB as a FAB 
148 12 3 inpfab Cfab$w_ifi] = 2 LibSal inpfdb Cfdb$w ifil; !Set the IF1 for CLOSE 
149 P1207 3 rms_perform (S$DISCONNECT (RAB = Lib$al_rabJ, 

150 P 1208 ; Lib$ closein ; 

151 1209 -LibSal_rab Crab$i_stv], 1, inpdesc); 

138 P 1210 3 rms_pertorm ($CLOSE~(FAB = inpfab), !Close the Library 

15 P 1211 Lib$_closein . 

128 151g 3 — -inpfab Cfab$l_stv), 1, inpdesc); 

156 1214 5 } {oot inpfdb = .lib$gl_inpfdb Cfdb$l_nxtfdbJ; !Link to next FDB 
157 1215 oT « iBS9 _inpfdb EQL 0 ‘And if no more 

158 1216 3 THEN BEGIN 

159 isi? IF .lib$Sal_rab Crab$l_ubf] NEQ 0. ; 

160 1218 THEN Lib_free_mem (lbr$c_maxrecsiz, .lib$al_rab Crab$l_ubf]); 
161 isi} RETURN false 

16¢ 1220 § END; 

16 1221 


’ —_—-—— —_ —-  -- eS es ee ig g hits esr aS. a . g 
saeehage™ IESIHMM CSBRSUMGMLAPMENRRAGSESY 
I. 


cates fab$v_sqo] = false; ! and clear $Q0 


END; 
open_status SOPEN (FAB = inpfab); 
ay -Ope.._ Status 


BEGIN f 

SIGNAL (Lib$_openin, 
1, inpdesc, 
.inpfab Cfab$l_stvl, | 
-open_status ); 

RETURN .open_status; 


ooovownd 


164 BEGIN 

165 LOCAL 

166 open_status; 

167 

168 BIND : 

169 _'. inpdesc = tT RSol. ing tdb Cfdb$lnamdesc] : BBLOCK, !Descriptor for filename 

120 inpnam = Lib$Sgl_inpfdb Cfdb$t_nam] : BBLOCK; 'Name NAM block 

Ha P SFAB_INIT ( 'Init the FAB 

17 P FAB = inetab. 

174 P FAC = GE - 'For gets ; 

175 P MRS = Lbr$c_maxrecsiz, 'Max record size 

176 P RFM = VAR, ‘Variable format records 

177 P FOP = <NAM,SQ0>, ‘Open by NAM block Rae 
178 P ‘Restrict to sequential access for network performance gain | 
179 P NAM = inpnam, !Point to the nam block 
180 P FNS = .inpdesc pet rgpeys be !Pass name also in case network open 
13) P .: = .inpdesc dsc$a_pointerd 
Ht Cen ete EQL Lbr$c_typ_shstb 'If a shareable image being opened 
185 BEGIN 
Hs inpfab Cfab$v_bro] = true; ! then set bro also 
188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

99 

00 
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ONOU EWR 0 OONOA UE WIN 0 OD NO MEW 0 ODNOUEWWN 0 ODNOA MEW OOONOUE WT 
PONE BEB EB PWN BBB BAB BEB BE BAN BB ANNAN NANNING 


Be Oe Be Be BES ee SHH Se Oe Se Be Se Se Se Be Se SESH SHE Se SH SH SH Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se SH SH Se Se Ge Se Seas 


END 
1 hee 2 inptdb Cfdb$w_ ifi]_= .inpfab Cfab$w_ifil; ‘Save IFI for close 
2 IF .libSal_rab Crab$T_ubf) EQL 'If no user buffer allocated 
201 THEN BEGIN 
202 P perform (Lib_get_mem (Lbr$c_maxrecsiz, Lib$al_rab Crab$l_ubfJ), !Allocate buffer 
203 ib$_initerr, 1, inpdesc); mest = 
$o8 Te pa dines Crab$w_usz] = lbr$c_maxrecsiz; ‘and set size in RAB 
206 P rms_perform (SCONNECT (RAB = Lib$al_rab), !Connect for record 1/0 
sor P D agents, s 
08 -LibSal_rab Crab$l_stvJ, 1, ingdesc); | ‘ 
209 6 IF . tibsal type EQL Lbr$c_typ_shstb '‘If opening a shareable image 
sy 6 THEN BEGIN PE aS 
11 6 inpfab Cfab$v_esc] = true; 'Set the majik bit 
$i¢ 7 inpfab Cfab$l_ctx] = rme$c_setrfm; ‘Function to set record format 
21 7 inpfab Cfab$b_rfm] = fab$c_var; 'Set variable pqngth records for $gets 
214 P 127 rms_perform (SMODIFY (FAB = inpfab), ‘Tell RMS to think differently 
215 P 127 Lib$_openin ; ! this should not fail 
$i¢ i oo inpfab Cfab$l_stv), 1, inpdesc);! but if it does report the error 
$18 7 END; 
219 7 RETURN ss$_normal : r 
220 7? END; ! Of next_input_file 
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40-742 Page 6 L 
0:832;1 9° 3) v0 
-TITLE LIB FILEIO ; 
. IDENT KvO%—000\ : 
.EXTRN LBRSGL_RMSSTV, LIBSGL_CTLMSK : 
-EXTRN LIBSGL-LIBCTL, LIBSGL-INPFDB : 
“EXTRN LIBSAL-RAB, LIBSGL_TYPE : 
-EXTRN LIBSGL-INPLIST, FIND_LIST_WIDTH : 
-EXTRN GETFILRAMDESC, LIB_GET_MEM : 
-EXTRN LIB_FREE_MEM, LIB_GET_2MEM : 
-EXTRN LIBS_INITERR, SYSSDISTONNECT : 
-EXTRN SYSS$TLOSE, SYSSOPEN : 
-EXTRN SYSSCONNECT, SYSSMODIFY : 
| . 
-PSECT $CODE$,NOWRT,2 : 
i 6 
| 07FC 00000 ENTRY NEXT -INPUT FILE, Save R2,R3,R4,R5,R6,R7,R8,-; 1165) : 
| SA 00006 CF 9 00002 MOVAB LIBSGL_INPFDB, R10 F | : 
59 000000006 00 9€ 00007 MOVAB LIBSSIGNAL, R9 : ; 
58 00006 CF 9E 0000 MOVAB $RMS_PTR, R ; : 
SE BO AE 9E 0001 MOVAB =80( : ; 
56 6A DO 00017 MOVL  LIBSGL_INPFDB, R6 > 1190) : 
20 12 OO01A BNEQ : | ; 
6A 00006 CF 9E O00IC MOVAB LIBSGL_INPLIST, LIB$GL_INPFDB : 1192. : 
0044 8F 00 6E re 2c pooe) MOVCS #0, (SP), #0, #68, SRMS_PTR ; 1197) 
68 4401 8F B0 00029 MOVW #17409, $RMS_PTR : 
04 A8 00010000 8F D0 0002E MOVL #65536, SRMS_PTR+4 : 
3c AB 6E 9E 00036 MOVAB INPFAB, $RMS~PTR+60 : 
5A 11 0003A BRB $ > 1190 | 
57 10 A6 9E 0003C 18: MOVAB 16(R6), R7 : 1203. 
0050 8F 00 bE 00 2c 90040 MOVCS #0, (SP), #0, #80, SRMS_PTR : 1205 
éF 5003 8F BO 00048 MOVW #20483, SRMS_PTR : 
16 AE 02 90 0004D MOVB #2, $RMS_PTR?22 : 
1F AE 02 90 00051 MOVB #2, $RMS~PTR+31 ; 
02. AE 06 A6 BO 00055 MOVW  6(R6), INPFAB+2 > 1206 | 
58 DD OO05A PUSHL R > 1209 | 
000000006 00 01 FB 9005¢ CALLS #1, SYSSDISCONNECT ; 
12 50 £8 0006 BLBS STATUS, ; 
0c AB DD 00066 PUSHL LIBSAL_RAB+12 : 
50 DD 90069 PUSHL STATUS ; 
57 DD 00068 PUSHL ; 
01 DD 0006D PUSHL #1 : | 
| 00861050 8F DD O006F PUSHL #8786000 ; 
69 05 FB 00075 CALLS #5, LIBSSIGNAL ; 
E DD 00078 2s: PUSHL SP : 1212 | 
| 000000006 00 01 FB 0007A CALLS #1, SYSSCLOSE ; | 
12 50 €8 00081 BLBS STATUS, 3$ ; 
Oc AE DD 00084 PUSHL INPFAB+12 ; 
50 DD 00087 PUSHL STATUS ; 
57 DD 00089 PUSHL ; 
| 4 DD 00088 PUSHL #1 : 
| 00861050 8F DD 08D PUSHL #8786000 ; 
| 69 05 FB 0009 CALLS #5, LIBSSIGNAL ; 


Foo 


os 
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" 1o788b-198e 12:38:03 EC TeRAR’SRESFILEIO.030+1 - | 
| 7A 94 9 00096 fons MOVL BL IBSGL_INPFDB, LIBSGL_INPFDB 71214 : 
15 12 0009 BNE : 1215 : 
| 50 24 AB dO 00098 MOVL LIBSAL_RAB+36, RO : 1217) ; 
OC 13 0009F BEQL 46 4$ : | ; 
6 BD 00A1 PUSHL R > 1218 : 
7E 0800 8 3c 0 OA3 MOVZWL #2048, -(S : ; 
| 00006 CF 02 FB O00A8 CALLS #2, LIB_FREE_MEM ; | : 
OOF4 31 OOOAD 4$: RW 10$ ; 1219, ; 
| 56 6A 10 C1 000B0 5$: ADDL3 #16, LIBSGL_INPFDB, R6 : 1227 | : 
| 5 6A 00000040 8F $1 0084 ADDL3 #64, LIBSGL-INPFDB, R7 > 1228) ; 
0050 = BF 00 6E 20 C panes MOVCS #0, (SP), #0, #80, SRMS_PTR : 1240 | ‘ 
| 6E 5003 &F BO o00cd MOVW #20483, SRMS : | ; 
| 04 AE 010000460 8F DO 000C9 MOVL nier77680, ie _PTR+4 : | ; 
16 AE 02 90 00001 MOVE #20. SRNS : | ; 
1F AE Os 90 000D5 MOVB #2, SAMS PTRsS ‘ : : 
28 =AE 57 00 00009 MOVL R7, $RMS_PTR+40 s : 
2C AE 04 A6 DO 000DD MOVL  4(R6), Kit PTR+44 : | : 
| 34 AE 66 90 000E2 MOVB = (R6) S_PTR+52 : | ; 
36 AE 0800 8F BO 000E6 Move —#e048, SRMS _PTR+54 Boks, : 
05 00006 CF 01 OOODEC CMPL L 1BSGL_ TYPE, #5 > 1241) : 
OA 12 OO0F1 BNEQ : | - 
16 AE 40 8F 88 0003 BIS82 #64, INPFAB+22 : 1244 | : 
| 04 AE 40 8F 8A OO0FB BICB2 #64, INPFAB+ : 1245 3 
5E DD OOOFD 6$ PUSHL 3 1247) ; 
000000006 00 01 FB OOOFF CALLS i. SYSSOPEN : | : 
3¢ 50 D0 00106 MOVL OPEN, STATUS : | ; 
1 52 £8 00109 BLBS BPENS STATUS, : 1248) ; 
| 52 DD 0010C PUSHL OPEN STAT : 1254. ; 
| 56 DD 0010E PUSHL RG : 1251) ; 
| 01 DD 00110 PUSHL ; | ; 
00861098 8F DD 00112 PusHt #8786072 ; | : 
69 04 FB 00118 CALLS #4, LIBSSIGNAL $ ; 
50 52 D0 0011B MOVL  OPEN_STATUS, RO ; 1255 : 
04 OO11E RET : ; 
50 6A DO OO11F 7$ MOVL —_LIBSGL INPE DB, RO : 1257 ; 
06 Ad 02 AE B0 00122 MOVW ABZ 6(RO) ; : 
24 AB D5 00127 ISTE LIBSAL_RAB#36 ; 1258 | ; 
25 12 OO12A BNEG 9$ ; | ; 
24 AB OF 0012C PUSHAB LIBSAL_RAB+36 : 1261. ; 
7E 0800 8F 3C 001eF MOVZWL #2048, ~-(S : ; 
00006 CF 03 FB 00134 CALLS #2, LIB_GET_MEM ; ; 
OF 50 £8 00139 LBS STATUS, “8 ; | ; 
50 DD Bat ge PUSHL STATUS : 3 
56 DD 9013¢ PUSHL : ; 
01 DD 00140 PUSHL #1 3 | : 
| 000000006 BF DD 0014 PUSHL = #LIBS_ INITERR ; | ; 
| 69 04 FB 0014 CALLS TBS$SIGN ; ; 
| 20 AB 0800 ef BO 00148 8$: move 364 " tiesat + RAB#32 > 1262 | : 
| 8 DD 00151 9$: PUSHL : 1266 | ; 
| 000000006 00 gu FB 00153 CALLS #1, SYSSCONNECT ; | : 
12 0 £8 0015A BLBS STATUS, ; | ; 
0c A8 DD 0015p PUSHL LIBSALRAB+12 ; ; 
50 DD 00160 PUSHL STATUS ; ; 
| 56 DD 00162 PUSHL ; : 
O1 DD 00164 PUSHL #1 ; ; 
00861098 8F DD 00166 PUSHL #8786072 ; ; 
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423 bytes, Routine Base: $CODE$ + 0000 


; Routine Size: 
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one ROUTINE get_record (record_desc) = 


UNCTIONAL DESCRIPTION: 


L 

EGIN 

oe 

F 
This routine reads the next record from the current input file 

Inputs: 

NONE 


WIAA 


WA RWI OOO NOU PWN OO WOU RUN OOo OU 


Implicit inputs: 
Input file must be open 


ewes memes mews meee meee esos GRE) 


LOCAL | 
status; 


tyre cas * REF BBLOCK; 
BIN 


SOODQOCOCOCOSOS OOO OOOO OO OWMWOWMOMmmmocn-~ 
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" tans = Lib$Sgl_inpfdb Cfdb$l_namdesc] : BBLOCK; 


status = $GET (RAB = Lib$al_rab); 'Read the record 
IF NOT .status AND (.status NEQ rms$ eof) 
THEN SIGNAL (Libs, readerr OR sts$k_severe 
1, inpdesc, -statys. - Lib$al_rab frab$t stv]); 
record_desc asc Su length) = Ui b$al"rab Crab$w_rszJ; !Return Length 
record desc C[dsc$a_pointer] -libSal_rab Crad$l_ ap ‘and address of record 
RETURN .status 
ND; ! Of get_record 
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Outputs: | 

; record_desc is a string descriptor for the record | 

lee } 
2 
2 
; 
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000c¢ 00000 .ENTRY GET_RECORD, Save R2,R3 : 1279 
52 00006 CF 10 C1 90008 ADDL3 #16, LIBSGL_INPFDB, R2 : 1306 
00006 CF 9F 0000 PUSHAB LIB$AL_RAB : 1308 
000000006 00 o1 FB 0000C CALLS #1, SYSSGET ; 
53 0 pO 00013 MOVL RO. STATUS : 
iE 53 £8 00016 BLBS STATUS, 1$ : 1309 
0001827A = BF 53 D1 00019 CMPL STATUS. #98938 : 
15 13 00020 BEQL ; 
00C0G CF dD 00022 PUSHL LIBSAL _RAB+12 > 1311 
Oc 68 00 6 PUSHR #*M<R27R3> > 1310 
01 DD 00028 PUSHL ; 
00861086 8F DD OO02A PUSHL #87861 02 : 
000000006 00 05 FB 0030 CALLS LIBSS1GNAL : 
50 04 AC 00 00037 18: MOVL ReCOR DESC, RO : 1312 
60 00006 CF BO 00038 MOVW Witte -RaBs $4" (RO) : 


sc 


‘pbebage? iesset9Hs QU:H8:04 Wad Lath Hels 
| 04 ag 00006 gf 0 MOVL LIBSAL_ . +40, 4(RO) 
a 


| 
; Routine Size: 74 bytes, Routine Base: S$CODE$ + 01A7 
j 
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‘LIB_FILEIO 16-Sep-1984 4 AX-11 Bliss-32 V4.0-742 Page 11 
vous 14- ett 93; 38: 63 LIBRAR.SRCJFILEIO.832;1 . (5) 

(3 ©6260 1 16 1 GLOBAL ROUTINE Lib_open_out (fdb, relnam, carriage_cntrl, Listingwidth) = ‘ 
5 2. : : peein : 

4 7 : 19 FUNCTIONAL DESCRIPTION: : 

[3 6 1 This routine opens the output file specified by fdb. | : 
; 6 1 : i INPUTS: : 
; 268 1324 : H 
; 269 1325 fdb address of the file descriptor block : 
: 270 1326 ; relnam Address of related NAM block : 
: 271 13 7 i carriage cntrl true if fab$v_cr, false if no : 

iz y 3 : Listingwidtr optional addréss of place to stare width of device . 
5 274 1380 i OUTPUTS: ; 
: 275 1331 i F 
: 276 1336 i fdbCfdb$Sw_ifi] ifi of open file : 
: e277 133 : 
; 278 1334 ie | ; 
3s ey 1335 : 
: 280 1336 2 MAP : 
; 281 1337 fdb : REF BBLOCK; | ; 
; 28 1338 : 
; 1339 aoe P : 
; 284 1340 : 
; 285 1341 steht “BBLOCK Cfab$c_bln]; | ; 
; $69 1366 : 
3 87 134 BIND : 
; 288 1346 2 namblk = fdb Cfdb$t pend BBLOCK, !Name the NAM block : 
: 289 1345 2 filedefdesc = fdb CTdb$l_defext] : BBLO CK, !String descriptor for default filename | F 
3 soe 1366 P< filenamedesc = fdb Crabst _namdesc] : BBLOCK; 'String descriptor for filename | : 
; 1348 Bul ; 
3; 1349 2  NULLPARAME TER: ; 
3; 296 1350 2 Net. Ne ; 
; 295 P1351 2 SFAB_INIT ( ‘Initialize the FAB | ; 
; 296 P 1326 § FAB = ofab, : 
5 97 P 135 RFM = VAR | : 
: 298 P 1354 2 FNS = .filenamedesc Goce length] : 
: 299 P 1355 $ FNA = .filenamedesc (Cdsc$a =pointerd, : 
; 5300 P 1356 DNS = .filedefdesc (Cdsc$w length) | : 
; 301 P 1357 : DNA = -tiledetdesc Cdsc$a_pointerd, | : 
: 0@ P 1358 FAC = PUT ; 
: P 1359 NAM = nambLk ep ; 
s OS P 1sey bg = <OFP, §a0> ‘Restrict to sequential access for network performance gain : 
; 3 ; 
: 306 1366 ; é 
: 307 1 -carriage cntri 'If carriage control desired : 
; 308 1366 THEN ofab Cfab$v_crJ] = true; | : 
: 310 P1368 ¢ SRAB_INIT ( ‘Initialize the RAB | : 
; (311 P 1367 = lib$al_rab, : 
i 313 P 1389 AB = fab | 
; + 1370 namb Lk Cams ar lf] = .relnam; !Set address of related NAM block : 
3 316 1372 i Create the file : 

| 


1 | 
LIB_FILEIO 18-Sep-19 4 01:52:04 AX=-11 Bliss-32 V4.0-742 Page 12. 
vez 12-80P 1 384 13338503 LIBRAR.SRCJFILEIO.B32;1 9° 55 | 
17 1373 2! | 
18 1374 status = SCREATE (FAB = ofab); 'Create the file 
19 1375 If NOT .status 'If error 
0 137 THEN BEGIN 
1 137 pret) nendess (ofab, filenamedesc); 'Get string descriptor for name 
¢ 137 IGNAL_STOP ( 'Signal error and stop 
137 Lib$_openout, 
2 ! 39 aie 1, filenamedesc, .status, .ofab [fab$l_stv]); 
6 138 getfilnamdesc (ofab, filenamedesc); 
f . : $7 rms_perform (SCONNECT (RAB = LibSal_rab), !Connect the record stream 
openou | 
33 ! +H , .libSal_rab frab$t_stv), 1, filenamedesc); 
331 1387 ' Set Iti into fdb and return 
32 1388 
335 1389 2 fdb Cfdb$w ifi] = .ofab Cfab$w_ifi); 
$36 1390 IF NOT NULCPARAMETER (4) 
35 1391 THEN per torn (find List_width (ofab, .listingwidth)); 
336 1336 RETURN true 
337 1393 1 END; 'Of Lib_open_out 
.EXTRN SYSSCREATE | 
O7FC 00000 ENTRY L1B_OPEN_OUT, Save R2,R3,R4,R5,R6,R7,RB8,R9,-; 1316) 
5A 00006 «CF 9E 00002 MOVAB $RMS_PTR, R10 : | 
5E B0 9E 00007 MOVAB -80(S5P), SP : 
56 04 AC DO 0000B MOVL DB, R > 1344) 
39 40 AG 9E 0000F MOVAB 64(R6),_RO ae 
57 08 Aé6 YE 00013 MOVAB 8(R6), R7 > 1345) 
58 10 A 9E 00017 OVAB 16(R65, RB ; 1346 | 
0050 BF 00 6E 00 2c 00018 movCcS #0, (SP), #0, #80, $RMS_PTR : 1361 | 
6E 5003 8F B0 $0038 MOVW #20683 SRMS_PTR ; 
04 AE 20000040 8F DO 00088 MOVL  #536870976, SRMS_PTR+4 : | 
16 AE 01 90 00030 MOVB =o, SRMS_PTReG? ; 
1F oA 02 90 00034 MOVB #2, $RMS-PTR+31 : 
28 AE 59 D0 00038 MOVL  R9, SRMS~PTR+40 : | 
C AE 04 AB 00 0003C MOVL  4(R8), SRMS_PTR+44 ; | 
0 AE 04 A? DO 00041 MOVL 4(R7), $RMS-PTR+48 ; | 
4 AE 68 9 0046 MOVB (RB), SRMS_PTR+5 ; | 
5 AE 67 90 0004A MOVB (R77), $RMS~PTR+5 ; | 
04 Oc Ac €9 OO4E BLBC_  CARRIAGE_CRIRL, 1$ > 1363 | 
1E AE 02 88 0005 BISB2 #2, OFABT30 > 1364 
0044 8F 00 6E 00 2C 00036 18 MOVCS #0, (SP), #0, #68, SRMS_PTR : 1369 | 
A 4401 F B0 005 MOVW #17409, SRMS_PTR : | 
3c CA 6E ' 06 MOVAB , SRMS_PTR+60 ; | 
10 Ag 08 AC dO 0006 MOVL RELNAM, 16TR9) : 1370. 
5E OD 906¢ PUSHL §$ > 1374, 
000000006 00 gi F $F CALLS #1, SYSSCREATE : | 
52 D 900 MOVL RO, STATU ; | 
20 52 £8 00078 BLBS STATUS, 2$ ; 1375 | 
58 DD 00078 PUSHL RB : 1377 
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m1 | 
LIB_FILEIO 16-Sep AX-11 Bliss-32 V4.0-742 Page 13. 
Voer 14-Sep 71982 9}: 38: §% LIBRAR.SRCJFILEIO.B32;1 oF «55 
04 AE 9 00070 PUSHAB ; | 
00006 CF 02 FB 0 CALLS 9548 GE IF ILNAMDESC : 
OC AE OD PUSHL  OFAB+12 + 1380) 
2 DD 00088 PUSHL STATUS : 
DD OOOBA PUSHL RB : 1378 | 
1 bb O8C PUSHL : 
008610A4 8F DD O008E PUSHL sme : | 
000000006 00 95 FB 00094 CALLS PTBSSTOP : | 
8 pd 0098 2$ PUSHL : 1382) 
04 AE F 599 PUSHAB OFAB : 
00006 CF FB OOOA CALLS GETF ILNAMDESC : 
A DD OA PUSHL a + 1385 
000000006 00 1 FB A CALLS SYSSCONNECT : | 
16 0 €£ OOAE BLBS srAToS : 
OC AA DD 0008 PUSHL LIBS$AL_RAB+12 : 
20 DD 000B4 PUSHL STATUS : 
DD 00086 PUSHL R8 : 
01 DD 00088 PUSHL #1 : 
008610A4 8F DD OO0BA PUSHL #8786084 ; 
000000006 00 05 FB 990¢9 CALLS #5, LIBSSIGNAL : 
06 Ab 02 AE BO 000C7 3$ MOVW OFAB+2, 6(R6 : 1389 
04 6¢ 91 000CC CMPB (AP), &4 : 1390 
13 1F OOOCF BLSSU  4$ : 
10 AC 05 00001 TL 16 (AP) : 
OE 13 00004 BEQL 4$ 3 
10 AC DD 00006 PUSHL LISTINGWIDTH : 1391 
04 AE 9F 00009 PUSHAB OFA : 
00006 CF 02 FB 000DC CALLS #2, FIND_LIST_WIDTH : 
03 50 €9 000E1 BLBC STATUS, 5$ : 
50 01 DO OO0ES 4s: MOVL #1, RO : 1392 
04 000E7 5$: RET : 1393 
; Routine Size: 232 bytes, Routine Base: S$CODE$ + O1F1 | 
| 
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16-Sep-1984 4 AX-11 B 

14*$ ets 03:38: 8% LIBRAR. 
GLOBAL ROUTINE Lib_close_out (fdb, delete) = 


'e+ 
; Close the open output file 


nn 
xz-. 
ow 
un 
~"s 


i Inputs: 


fdb Address of the fdb for the file 
delete True to delete file 


! 
! 
! 
' 
Outputs: 
file is closed 
1 
-) 

fdb : REF BBLOCK; 


ND 
namblk = fdb Cfdb$St_nam] : BBLOCK; 
LOCAL 


stu BBLOCK Cfab$c_blnJ; 
SFAB_INIT (FAB = ofab); :Make a FAB 
ofab (fab$v_dit) = .delet 'Set delete flag true/false 
ofab Cfab$w_ifi] = .fdb Cfabsw_ ifi]; ‘Set IFI for close 


ofab Cfab$l-n a = namb 
LibSal_rab Crabs fab] = ofab; 
rms_perform CEDISCON NECT (RAB = Lib$al_rab), !Disconnect record stream 


Libs 4 ory 
-LibSal_rab “Efabst stv] . fdb By pos _namdesc]); 
rms -perform (acCose. (FAB = ofa c: Close the file 


$ closeout, 
vofab Cfab$l_stv], 1, fdb Cfdb$l_namdesc]); 


RETURN true 
END; ‘ 


FC 000 LIB_CL Ost OUT 
57 000000006 00 9€ 0000 MOVAB LIBSS1GN NAC, R? 
5E 0 AE 4 00 MOVAB -80(SP), SP 
56 4 AC 00 0000D OVL DB, R6- 
00 6E 00 2¢ ogi) MOVCS #0, (SP), #0, #80, SRMS_PTR 
6E 5003 BF 80 0019 MOVW #20483, sams PIR 
16 AE 02 OO1E MOVB = #2,:« $RMS RI¢ 
ww 02 90 000 MOVB #2. ~S$RMS~ SIRS 
01 0 08 AC FO 00026 INSV DELETE, B7, #1, OFAB+S 
AE 06 Ab b 0 D MOVW 6(R6), OFAB+2 
AE 40 Ab 9E é MOVAB 64(R6$, OFAB+40 
00006 CF 6€ 9E 000 MOVAB OFAB, LI BSAL _RAB+60 
00006 CF 9F 0003C PUSHAB LIBSAL_RA 


Save R2,R3,R4,R5,R6,R7 


List LEIO 


14-Sep-1984 12: 
000000006 00 gf Fe 498 CALLS 
0 £8 0004 BLBS 
00006 gf DD QO04A PUSHL 
0 DD 0004 PUSHL 
10 A6 OF Bp02 PUSHAB 
01 DD 0005 PUSHL 
00861058 8F DD Babe PUSHL 
7 0S FB 0005B CALLS 
5E DD 44543 1$ PUSHL 
000000006 09 4 FB 0006 CALLS 
1 0 £8 00067 BLBS 
oc af DD open PUSHL 
50 0D 0006D PUSHL 
10 A6 9F QOO6F PUSHAB 
01 DD 00072 PUSHL 
00861058  8F DD 00074 PUSHL 
7 0S FB QOO7A CALLS 
50 01 DO 0007D 2$ MOVL 
04 00080 RET 
; Routine Size: 129 bytes, Routine Base: $CODE$ + 02D9 
377 1432 1 END ! Of module 
378 1433 0 ELUDOM 
-EXTRN 
PSECT SUMMARY 
Name Bytes Attributes 
SCODES 858 NOVEC.NOWRT, RD, EXE,NOSHR, LCL, 
Library Statistics 
eeceeeccn Symbols oe Pages 
File Total Loaded Percent Mapped 
_$255$DUA28: CSYSLIBISTARLET.L32;1 9776 110 1 581 


COMMAND QUALIFIERS 


18.52 a ath 1: 36: oY 


AX-11 Bliss-32 V te =742 
LIBRAR.SRC FILEIO -B32;1 


#1 SYSSDISCONNECT 
LIBSAL_RAB+12 
STATUS 
16(R6) 


#1 
#8786008 
#5, LIBSSIGNAL 


#1, SYSS$CLOSE 
ST 2$ 


A 

#8786008 

#5, LIBSSIGNAL 
#1, RO 


LIBSSIGNAL, LIBSSTOP 


REL, CON,NOPIC,ALIGN(2) 


Processing 
Time 


00:01.0 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:F ILEIO/OBJ=OBJ$:FILEIO MSRCS$:F ILEIO/UPDATE=(ENHS:F ILEIO) 


Se Be Se Be Se Se Be Be Be Se Se Se Ge Se Se Ge Se Se Se 


1429, 


Size: 858 


Elapsed Time: 
Lines/CPU Min: 
Nea Not Mag 5 
Memor 


Foumtlakion. RF 


i 


2 pages 


t 


. 
is 


+ 0 data bytes 
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